home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / wallchunk.s < prev    next >
Text File  |  1997-01-31  |  4KB  |  293 lines
  1.  
  2.  
  3. RELEASEWALLMEM:
  4.  move.l #walltiles,a0
  5.  move.l #wallchunkdata,a5
  6. relmem:
  7.  move.l 4(a5),d0
  8.  beq.s relall
  9.  
  10.  move.l (a0),d1
  11.  beq.s notthismem
  12.  
  13.  move.l d1,a1
  14.  move.l 4.w,a6
  15.  movem.l a0/a5,-(a7)
  16.  jsr -210(a6)
  17.  movem.l (a7)+,a0/a5
  18.  
  19.  
  20. notthismem:
  21.  addq #8,a5
  22.  addq #4,a0
  23.  bra.s relmem
  24.  
  25. relall:
  26.  rts
  27.  
  28. LOADWALLS:
  29.  
  30. **************************************
  31.  
  32. * New loading system:
  33. * Send each filename to a 'server' along with
  34. * addresses for the return values (pos,len)
  35. * then call FLUSHQUEUE, which actually loads
  36. * the files in...
  37.  
  38.  move.l #walltiles,a0
  39.  moveq #39,d7
  40. emptywalls:
  41.  move.l #0,(a0)+
  42.  dbra d7,emptywalls
  43.  
  44.  move.l #walltiles,a4
  45.  move.l LINKFILE,a3
  46.  add.l #WallGFXNames,a3
  47.  move.l #0,TYPEOFMEM
  48.  
  49. loademin:
  50.  move.l (a3),d0
  51.  beq loadedall
  52.  
  53.  move.l a3,a0
  54. .findend:
  55.  tst.b (a0)+
  56.  bne.s .findend
  57.  
  58.  move.b #0,-(a0) ;0
  59.  move.b #0,-(a0) ;D
  60.  move.b #0,-(a0) ;A
  61.  move.b #0,-(a0) ;W
  62.  move.b #0,-(a0) ;6
  63.  move.b #0,-(a0) ;5
  64.  move.b #0,-(a0) ;2
  65.  
  66.  move.b #'w',(a0)+
  67.  move.b #'a',(a0)+
  68.  move.b #'d',(a0)+
  69.  
  70.  move.l a3,a0
  71.  move.l a4,d0    ; address to put start pos
  72.  move.l #0,d1
  73.  
  74.  jsr QUEUEFILE
  75.  
  76.  addq #4,a4
  77.  
  78.  adda.w #64,a3
  79.  bra loademin
  80.  
  81. loadedall:
  82.  
  83.  rts
  84.  
  85. **************************************
  86.  
  87. ; move.l #walltiles,a0
  88. ; moveq #39,d7
  89. ;emptywalls:
  90. ; move.l #0,(a0)+
  91. ; dbra d7,emptywalls
  92. ;
  93. ; move.l #walltiles,a4
  94. ; move.l LINKFILE,a3
  95. ; add.l #WallGFXNames,a3
  96. ; move.l #0,TYPEOFMEM
  97. ; 
  98. ;loademin:
  99. ; move.l (a3),d0
  100. ; beq loadedall
  101.  
  102. ; movem.l a4/a3,-(a7)
  103.  
  104. ; move.l a3,a0
  105. ; jsr LOADAFILE
  106.  
  107. ; movem.l (a7)+,a4/a3
  108.  
  109. ; move.l d0,(a4)+
  110. ; move.l d1,4(a3)
  111.  
  112. ; adda.w #64,a3
  113. ; bra loademin
  114.  
  115. ;loadedall:
  116. ; PRSDN
  117. ; rts
  118.  
  119. handle: dc.l 0
  120.  
  121. UNPACKED: dc.l 0
  122.  
  123. walltiles:
  124.  ds.l 40
  125.  
  126. DEFLOADFILE:
  127. ; Load a file in and unpack it if necessary.
  128. ; Pointer to name in a0
  129. ; Returns address in d0 and length in d1
  130.  
  131.  movem.l d0-d7/a0-a6,-(a7)
  132.  bra.s intoload
  133.  
  134. LOADAFILE:
  135. ; Load a file in and unpack it if necessary.
  136. ; Pointer to name in a0
  137. ; Returns address in d0 and length in d1
  138.  
  139.  movem.l d0-d7/a0-a6,-(a7)
  140.  
  141.  move.l a0,d1
  142.  move.l doslib,a6
  143.  move.l #1005,d2
  144.  jsr -30(a6)
  145.  move.l d0,handle
  146.  
  147. intoload:
  148.  
  149.  lea fib,a5
  150.  move.l handle,d1
  151.  move.l a5,d2
  152.  move.l doslib,a6
  153.  jsr -390(a6)
  154.  move.l $7c(a5),blocklen
  155.  
  156.  move.l TYPEOFMEM,d1
  157.  move.l 4.w,a6
  158.  move.l blocklen,d0
  159.  jsr -198(a6)
  160.  
  161.  move.l d0,blockstart
  162.  
  163.  move.l doslib,a6
  164.  move.l handle,d1
  165.  move.l d0,d2
  166.  move.l blocklen,d3
  167.  jsr -42(a6)
  168.  
  169.  move.l doslib,a6
  170.  move.l handle,d1
  171.  jsr -36(a6)
  172.  
  173.  move.l blockstart,a0
  174.  move.l (a0),d0
  175.  cmp.l #'=SB=',d0
  176.  beq ITSPACKED
  177.  
  178. ; Not a packed file so just return now.
  179.  movem.l (a7)+,d0-d7/a0-a6
  180.  
  181.  move.l blockstart,d0
  182.  move.l blocklen,d1
  183.  
  184.  rts
  185.  
  186. ITSPACKED:
  187.  
  188.  move.l 4(a0),d0    ; length of unpacked file.
  189.  move.l d0,UNPACKED
  190.  move.l TYPEOFMEM,d1
  191.  move.l 4.w,a6
  192.  jsr -198(a6)
  193.  
  194.  move.l d0,unpackedstart
  195.  
  196.  move.l blockstart,d0
  197.  moveq #0,d1
  198.  move.l unpackedstart,a0
  199.  move.l LEVELDATA,a1
  200.  lea $0,a2
  201.  jsr unLHA
  202.  
  203.  move.l blockstart,d1
  204.  move.l d1,a1
  205.  move.l blocklen,d0
  206.  move.l 4.w,a6
  207.  jsr -210(a6)
  208.  movem.l (a7)+,d0-d7/a0-a6
  209.  
  210.  move.l unpackedstart,d0
  211.  move.l UNPACKED,d1
  212.  
  213.  rts
  214.  
  215.  
  216. unpackedstart:
  217.  dc.l 0
  218.  
  219. wallchunkdata:
  220.  dc.l GreenMechanicNAME,18560
  221.  dc.l BlueGreyMetalNAME,13056
  222.  dc.l TechnoDetailNAME,13056
  223.  dc.l BlueStoneNAME,10368
  224.  dc.l RedAlertNAME,7552
  225.  dc.l RockNAME,10368
  226.  dc.l scummyNAME,24064
  227.  dc.l stairfrontsNAME,2400
  228.  dc.l bigdoorNAME,13056
  229.  dc.l redrockNAME,13056
  230.  dc.l dirtNAME,24064
  231.  dc.l SwitchesNAME,3456
  232.  dc.l shinyNAME,24064
  233.  dc.l bluemechNAME,15744
  234.  dc.l 0,0
  235.  
  236. GreenMechanicNAME:
  237.  dc.b 'AB3D1:includes/walls/greenmechanic.256wad'
  238.  dc.b 0 
  239.  even
  240. BlueGreyMetalNAME:
  241.  dc.b 'AB3D1:includes/walls/bluegreymetal.256wad'
  242.  dc.b 0
  243.  even
  244. TechnoDetailNAME:
  245.  dc.b 'AB3D1:includes/walls/technodetail.256wad'
  246.  dc.b 0
  247.  even
  248. BlueStoneNAME:
  249.  dc.b 'AB3D1:includes/walls/bluestone.256wad'
  250.  dc.b 0
  251.  even
  252. RedAlertNAME:
  253.  dc.b 'AB3D1:includes/walls/redalert.256wad'
  254.  dc.b 0
  255.  even
  256. RockNAME:
  257.  dc.b 'AB3D1:includes/walls/rock.256wad'
  258.  dc.b 0
  259.  even
  260. scummyNAME:
  261.  dc.b 'AB3D1:includes/walls/scummy.256wad'
  262.  dc.b 0
  263.  even
  264. stairfrontsNAME:
  265.  dc.b 'AB3D1:includes/walls/stairfronts.256wad'
  266.  dc.b 0
  267.  even
  268. bigdoorNAME:
  269.  dc.b 'AB3D1:includes/walls/bigdoor.256wad'
  270.  dc.b 0
  271.  even
  272. redrockNAME:
  273.  dc.b 'AB3D1:includes/walls/redrock.256wad'
  274.  dc.b 0
  275.  even
  276. dirtNAME:
  277.  dc.b 'AB3D1:includes/walls/dirt.256wad'
  278.  dc.b 0
  279.  even
  280. SwitchesNAME:
  281.  dc.b 'AB3D1:includes/walls/switches.256wad'
  282.  dc.b 0
  283.  even 
  284. shinyNAME:
  285.  dc.b 'AB3D1:includes/walls/shinymetal.256wad'
  286.  dc.b 0
  287.  even
  288. bluemechNAME:
  289.  dc.b 'AB3D1:includes/walls/bluemechanic.256wad'
  290.  dc.b 0
  291.  even
  292.  
  293.